home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Game / C / CORE! 1.1.CPT / Core! 1.1 / Battle Programs / contest87 / W2 < prev    next >
Encoding:
Text File  |  1989-07-19  |  730 b   |  33 lines  |  [TEXT/MARS]
  1. ;       2ND ICWS COMPETITION ENTRY
  2. ;
  3. ;       NAME :   W2
  4. ;
  5. ;       PROGRAMMER :    Douglas McDaniels,  Alexandria, VA
  6. ;
  7. ;        ORG     START
  8. ;
  9. ITIP    DAT     0
  10. WHERE   DAT     0
  11. COUNT   DAT     #0
  12. U       DAT     0
  13. START   SPL     ART  ;Start here!   
  14. TT      MOV     U WHERE
  15.         MOV     #-128 COUNT
  16. RESTART MOV STALL2 <WHERE
  17.         MOV     STALL1 <WHERE
  18.         SUB     #30 WHERE
  19.         SUB     #31 COUNT
  20.         DJN     RESTART COUNT
  21.         SUB     #5 U
  22.         DJN     TT A
  23. Q       DAT     #-30    
  24. ART     MOV     Q <ITIP
  25.         DJN     ART Q
  26.         MOV     #-30 Q
  27.         MOV     #0 ITIP
  28.         JMP     ART
  29. STALL1  SPL     0
  30. STALL2  JMP     -1
  31. A       DAT     #6
  32. ;This is choice number one!
  33.         END     START